Option Explicit
Sub B_Sample004()
    Dim myRng As Range
    Dim myVar As Variant
    Set myRng = Worksheets(1).UsedRange
    myVar = myRng.Value
    If IsArray(myVar) Then
        MsgBox CStr(UBound(myVar, 1)) & "X" & _
        CStr(UBound(myVar, 2)) & "2}C"
    Else
        MsgBox "ëD}CAȬ" & myVar & "C"
    End If
    Set myRng = Nothing		'
End Sub
